home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.21
/
rogerdattools
/
goamiga_2_rogerdat.p
next >
Wrap
Text File
|
1995-04-23
|
823b
|
47 lines
VAR f,f2:TEXT;
c:CHAR;
s:STRING[80];
l,i:INTEGER;
PROCEDURE zerlegestring;
BEGIN
writeln(s);
writeln(f2); { keine Bemerkung }
FOR l:= 1 TO length(s) DO
BEGIN
IF s[l]=',' THEN writeln(f2)
ELSE write(f2,s[l]);
END;
writeln(f2);
writeln(f2,'0');
writeln(f2,'0');
writeln(f2,'0');
s:='';
END;
BEGIN
s:='';
reset(f,'dh0:go1.MLR'); { hier muß die als Ascii datei von
GoAmiga! Datei und Ihr Pfad angegeben werden}
rewrite(f2,'dh0:go1'); { Hier halt den Namen der neuen Rogerdatdatei
eingeben}
Writeln(f2,'Rogerdat Dateikennungskopf');
writeln(f2);
writeln(f2);
writeln(f2);
WHILE NOT eof(f) DO
BEGIN
read(f,c);
IF ORD(c)=13 THEN zerlegestring
ELSE s:=s+c;
END;
close(f);
close(f2);
END.